home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Window, returning class name of < prev    next >
Encoding:
Text File  |  1997-07-16  |  514 b   |  15 lines
  1. 'Description: Returns class name as string for passed HWND
  2.  
  3. 'Private Declare Function M_GetClassName Lib "user32" Alias "GetClassNameA" (ByVal lHwnd As Long, ByVal lpClassName As String, ByVal lMax As Long) As Long
  4. 'Function GetClassName(ByVal xHwnd As Long) As String
  5. Dim xLen         As Long
  6. Dim sBuffer         As String
  7. sBuffer = String(255, Chr$(0))
  8. xLen = M_GetClassName(xHwnd, sBuffer, 255)
  9. If xLen = 0 Then
  10.    GetClassName = ""
  11. Else
  12.    GetClassName = Left(sBuffer, xLen)
  13. End If
  14. 'End Function
  15.